home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP NET Rehberi Eylül 1998.iso / ftp / iftp21 / EXAMPLES.ZIP / EXAM14.FTP < prev    next >
Text File  |  1997-12-16  |  573b  |  28 lines
  1. //
  2. // Script demonstrates usage of IF THEN BEGIN ELSE ENDIF blocks
  3. //
  4.  
  5.    if not carrier then abort "Not connected to Internet"
  6.  
  7.    Log Checking For Fido and Internet Mail!
  8.  
  9.    if not session begin
  10.      Log Not Connected! Connected to FTP Site
  11.      open ftpsite
  12.      if not success then exit
  13.    endif
  14.  
  15.    if exist /out begin
  16.       log FidoMail Available!
  17.       dir /out
  18.    else
  19.       Log No Fido Mail Available!
  20.    endif
  21.  
  22.    if exist /usenet begin
  23.       log Internet Available!
  24.       dir /usenet
  25.    else
  26.       Log No Internet Available!
  27.    endif
  28.